home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0205.PRG < prev    next >
Text File  |  1988-06-18  |  1KB  |  49 lines
  1. *************************************************************
  2. *     ML0205.CMD - ROUTINE TO SELECT LABEL COMMENTS         *
  3. *************************************************************
  4. SET TALK OFF
  5. ERASE
  6. STORE 0 TO TRIGGER
  7. @ 10,10 SAY 'Select Comment Fields Content'
  8. @ 12,10 SAY '   0 - Input comments 1 and 2'
  9. @ 13,10 SAY '   1 - Contact Name for Comment #1'
  10. @ 14,10 SAY '       Title for Comment # 2'
  11. @ 15,10 SAY '   2 - Input Comment # 1'
  12. @ 16,10 SAY '       Contact Name for Comment # 2'
  13. @ 17,10 SAY '   3 - Input Comment # 1'
  14. @ 18,10 SAY '       Title for Comment # 2'
  15.  
  16. STORE F TO OK
  17. DO WHILE .NOT. OK
  18.     @ 20,10 SAY 'INPUT OPTION: ' GET TRIGGER PICTURE '9'
  19.     READ
  20.     IF TRIGGER>=0 .AND. TRIGGER<=3
  21.         STORE T TO OK
  22.     ENDIF
  23. ENDDO
  24. CLEAR GETS
  25. RELEASE OK
  26.  
  27. STORE '                              ' TO CMNT1
  28. STORE '                              ' TO CMNT2
  29.  
  30. ERASE
  31. DO CASE
  32.     CASE TRIGGER=0
  33.         @ 16,10 SAY 'Input Label CMT. 1' GET CMNT1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' 
  34.         @ 17,10 SAY 'Input Label CMT. 2' GET CMNT2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' 
  35.         READ
  36.     CASE TRIGGER=2 .OR. TRIGGER=3
  37.         @ 16,10 SAY 'Input Label CMT. 1' GET CMNT1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' 
  38.         READ
  39. ENDCASE
  40. CLEAR GETS
  41.  
  42. RETURN
  43.  CMT. 1' GET CMNT1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' 
  44.         READ
  45. ENDCASE
  46. CLEAR GETS
  47.  
  48. RETURN
  49.